﻿Public Class HukukBorcBilgileriRaporu
    Inherits ProcessReport

    Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
        Select Case e.EventType
            Case EventType.Initialize
				Text = "Borç Bilgileri Raporu"
                InitialHelp = "Kimlik bilgisini girin."
                AddField("@Sigortali", "nl", "", "Sigortalı bilgisini girmelisiniz.")
            Case EventType.ValidateForm
                Rs = Hukuk.Af2005.TaksitListesi(Local, Input("Sigortali"))
                If Rs.EOF Then Warning("Belirtilen sigortalıya ait borç bilgisi bulunamadı.") : Exit Sub
                e.Result = True
            Case EventType.ReportHeader
                Report.PrintHeader("TAKSİTLİ ÖDEME BİLGİLERİ LİSTESİ")
            Case EventType.PageHeader
                Report.SetColumns("Yıl;Ay;Borç;Açıklama;Makbuz No.;Tarih;Öd.Gereken", "1;1;2;4;2;2;2", "c;c;m;l;c;d;m", "--")
            Case EventType.ReportDetail
                Dim Toplam As Decimal = 0
                Do Until Rs.EOF
                    Dim Tutar As Decimal = 0
                    If IsDBNull(Rs("tarih")) Then
						Tutar = IsNull(Rs("borc"), 0)
                        Dim CezaOrani As Decimal = Prim.FaizOraniHesabi(ToDate(Rs("yil"), Rs("ay"), 1), Today)
                        If CezaOrani > 0 Then Tutar *= (100 + CezaOrani) / 100
                    End If
                    Toplam += Tutar
                    Report.Print(Rs("yil"), Rs("ay"), Rs("borc"), Rs("acik"), Rs("makbuzno"), Rs("tarih"), Tutar)
                    Rs.MoveNext()
                Loop
                If Toplam > 0 Then Report.PrintTotal("<cs=6>", Toplam)
        End Select
    End Sub

End Class
